home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991: Code Warrior / bincue / Code Warrior.bin / Development Platforms (Moof!) / Apple II / Essentials / Miscellaneous Disk Images / ProDOS Basic Examples / EXTRAS / READ.DIRECTORY.bas < prev    next >
Encoding:
BASIC Source File  |  1990-09-14  |  363 b   |  10 lines
  1. 5 D$ =  CHR$(4)
  2. 10  PRINT D$;"OPEN /EXAMPLES,TDIR"
  3. 20  PRINT D$;"READ /EXAMPLES"
  4. 30  INPUT L1$: PRINT L1$: REM  READ NAME
  5. 40  INPUT L2$: PRINT L2$: REM  READ TITLE
  6. 50  INPUT L3$: PRINT L3$: REM  READ BLANK LINE
  7. 60  INPUT L4$: PRINT L4$: REM  READ FILES
  8. 70  IF L4$ < >""  THEN  GOTO 60
  9. 80  INPUT L5$: PRINT L5$: REM  READ BLOCK COUNT
  10. 90  PRINT D$;"CLOSE /EXAMPLES"